home *** CD-ROM | disk | FTP | other *** search
/ Codemasters Artwork Disc ECTS 2000 ( UK) / Codemasters - Artwork Disc ECTS 2000 (UK).bin / pc / main.dxr / 00118_DOWNLOAD RENDER.ls < prev    next >
Encoding:
Text File  |  2000-01-01  |  2.2 KB  |  81 lines
  1. global gTitle, mycddrive, mysystem, gBigScreen
  2.  
  3. on mouseDown
  4.   cursor(4)
  5.   if gTitle = VOID then
  6.     abort()
  7.     cursor(0)
  8.   end if
  9.   if the machineType = 256 then
  10.     if mycddrive = VOID then
  11.       driveList = DrivesToList()
  12.       repeat with X = 1 to count(driveList)
  13.         driveName = getAt(driveList, X)
  14.         Y = DriveIsCDROM(driveName)
  15.         if Y = 0 then
  16.           mycddrive = driveName
  17.         end if
  18.       end repeat
  19.     end if
  20.     if mysystem = VOID then
  21.       dlist = DrivesToList()
  22.       repeat with X = 1 to count(dlist)
  23.         driveName = getAt(dlist, X)
  24.         t = driveName & "\Program Files"
  25.         b = DirectoryExists(t)
  26.         if b = 0 then
  27.           mysystem = driveName
  28.           exit repeat
  29.         end if
  30.       end repeat
  31.     end if
  32.     u = DriveFreeSpace(mysystem)
  33.     if u < 40960 then
  34.       alert("Drive" && mysystem && "has less than 4 MB, you may need to free up disc space")
  35.       cursor(0)
  36.     end if
  37.     mysource = the moviePath & "data\" & gTitle & "\download\" & gBigScreen & "D.tif"
  38.     mydest = mysystem
  39.     retVal = FileSaveAsDialog(mydest, gBigScreen & ".tif", EMPTY, EMPTY)
  40.     if retVal <> EMPTY then
  41.       CopyFile(mysource, retVal)
  42.     end if
  43.     cursor(0)
  44.   else
  45.     if mycddrive = VOID then
  46.       driveList = DrivesToList()
  47.       repeat with X = 1 to count(driveList)
  48.         driveName = getAt(driveList, X)
  49.         Y = DriveIsCDROM(driveName)
  50.         if Y = 0 then
  51.           mycddrive = driveName
  52.         end if
  53.       end repeat
  54.     end if
  55.     if mysystem = VOID then
  56.       dlist = DrivesToList()
  57.       repeat with X = 1 to count(dlist)
  58.         driveName = getAt(dlist, X)
  59.         t = driveName & ":system folder"
  60.         b = DirectoryExists(t)
  61.         if b = 0 then
  62.           mysystem = driveName
  63.           exit repeat
  64.         end if
  65.       end repeat
  66.     end if
  67.     u = DriveFreeSpace(mysystem)
  68.     if u < 40960 then
  69.       alert("Drive" && mysystem && "has less than 4 MB, you may need to free up disc space")
  70.       cursor(0)
  71.     end if
  72.     mysource = the moviePath & "data:" & gTitle & ":download:" & gBigScreen & "D.tif"
  73.     mydest = mysystem
  74.     retVal = FileSaveAsDialog(mydest, gBigScreen & ".tif", EMPTY)
  75.     if retVal <> EMPTY then
  76.       CopyFile(mysource, retVal)
  77.     end if
  78.     cursor(0)
  79.   end if
  80. end
  81.